Top 10k strings from Roulette (1982)(Dymond Software).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   2 h(f,z)=h(f,z)+1
   1 y(f,r1)=z(r1)
   1 y(f,r1)=w:
   1 y$="121216"
   1 y$="12121 "
   1 w=y(f,r1):
   1 s(f,z,n)=0
   1 s(f,z,h(f,z))=s(f,z,n):
   1 s(f,z,h(f,z))=c
   1 r(f,w,y,i)=0
   1 passe manquepair  impairblack red   
   1 p$(x)+"    ",v$,"bank/ acc.","
   1 o$="05050909131315151502161616":
   1 l(y),c(y);c$(y):
   1 l(y),c(y);"  ":
   1 l$="202020202002020202202020202002020202444402
   1 l$+l$+l$+l$:
   1 k,j,j,k,g,b,g,h,i
   1 k(y)=e(n):
   1 k$="04160416041608101210051117"
   1 g$="dozen ":
   1 g$="column ":
   1 f;" enter your name ";p$(f):
   1 f(f)=s(f,z,h(f,z))*t(z):
   1 f(f)=r(f,h,2
   1 f(f)=f(f)+c:
   1 e(y)=k(y):
   1 e(y)=b(f,z,n,y):
   1 e$="How much on "
   1 d$(f)="out"
   1 d$(f)="lost"
   1 d$(f)="Won":
   1 c1+c2,l1+e+t:
   1 bet 21    
   1 b,a,c,d,c,c,d,a,b,a,e,f,f,f,e,a,b,a,e,f,132
   1 b(f,z,n,y)=a
   1 b(f,z,n,y)=0
   1 b(f,z,h(f,z),y)=e(y):
   1 b(f,z,h(f,z),y)=b(f,z,n,y):
   1 a(f)=a(f)-c:
   1 a$=g$+a$(l)
   1 Spin the wheel
   1 ROULETTE  '6
   1 How much on O
   1 =a(f)+f(f):
   1 ;e$;a$;" ?"
   1 ;e$;"these ";m;" numbers ?":
   1 ;"manque";
   1 ;"impair";
   1 ;"illegal bet"+l$+l$
   1 ;"You must have made an error or","it does not apply to the rules"
   1 ;"Stop the tape";
   1 ;"Not enough money, bet less"
   1 ;"No money left to bet with":
   1 ;"Congratulations ";p$(f);" you broke  the bank.":
   1 ;"  For the sinclair ZX Spectrum"
   1 ,l,g,b,a,a,a,a,a,a,b,b,l,l,l,l,l,l,b,60
   1 ,j,g,b,g,120
   1 ,i,h,g,b,g,k,40
   1 ,i,h,g,b,g,120
   1 ,i)=r(f,w,2
   1 ,g,b,g,k,32
   1 ,g,b,g,h,i,h,i,h,g,b,g,h,i,56
   1 ,g,b,g,h,i,16
   1 ,f,e,a,b,g,h,i,i,i,h,g,b,g,j
   1 ,b,b,b,b,126
   1 ,a,g,g,l,3
   1 ,a,b,a,e,f,132
   1 +d1+i(z)*10
   1 $(y)=m$(y*2
   1 "|  ||  ||  ||  ||  ||  ||  ||  |"
   1 "roulette"
   1 "passe","manque","pair","impair","black","red"
   1 "Player ";
   1 "Place your bets please ";
   1 "Next round ";a$:
   1 "I'm afraid that your games are   over as I have all your money   Another game?  y/n";a$
   1 "How many players to play ";q:
   1 "Another game. y/n";a$
   1  Roulette  
   1  Dymond software
   1  Dymond Software 1982"
   1  Dymond Roulette";